home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BoxKite.dxr / Internal_66_tab hot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.0 KB  |  30 lines
  1. property spriteNum
  2. global equal, hotcard, tableau
  3.  
  4. on beginSprite
  5.   sprite(spriteNum).blend = 0
  6. end
  7.  
  8. on mouseEnter
  9.   if the clickOn <> 0 then
  10.     if sprite(the clickOn).moveableSprite = 1 then
  11.       if sprite(spriteNum - 12).visible = 1 then
  12.         if (getlist(the clickOn)[getlist(the clickOn).count].rankvalue = (tableau[makesymbol(spriteNum - 12)].getlastcard().rankvalue + 1)) or (getlist(the clickOn)[getlist(the clickOn).count].rankvalue = (tableau[makesymbol(spriteNum - 12)].getlastcard().rankvalue - 1)) then
  13.           equal = 1
  14.           hotcard = spriteNum - 12
  15.         else
  16.           if ((chars(member(sprite(the clickOn).memberNum).name, 1, 4) = "king") and (chars(member(sprite(spriteNum - 12).memberNum).name, 1, 3) = "ace")) or ((chars(member(sprite(the clickOn).memberNum).name, 1, 3) = "ace") and (chars(member(sprite(spriteNum - 12).memberNum).name, 1, 4) = "king")) then
  17.             equal = 1
  18.             hotcard = spriteNum - 12
  19.           end if
  20.         end if
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.  
  26. on mouseLeave
  27.   equal = 0
  28.   hotcard = 0
  29. end
  30.